PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
COMMON TOOT,CLAR;
*

REVRB 0 0 1;				< One "note" only
 P2 12;					< should be at least 2-3" longer than
END;					<   total of all instruments

TOOT 0 ;
P2 RHY/16;			< quarter note, 2 eighths, half
P3 NOT/A(GS4/A/B/C5)/@-$A/FINE;			< G4 = G above middle C
P4 1;					< maximum amplitude
P5 F1;					< amplitude function
P6 F6;					< waveform ("SYNTH") function
P7 .05;					< percentage (0 ↔ 1) of reverberation
END;
 CLAR;
 DUPL 2;
 P3 LIT/"P3*1.5"/"P3*1.7"/"P3*1.9";
 END;
 TEMPO/4 40 120/2 120/4 120 40;